home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / [Math_Grap18194511182004.psc / Math Graph / frmCal.frm < prev   
Text File  |  2003-08-22  |  15KB  |  489 lines
  1. VERSION 5.00
  2. Begin VB.Form frmCalculator 
  3.    BackColor       =   &H00FF8080&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Calculator"
  6.    ClientHeight    =   3030
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   5250
  10.    Icon            =   "frmCal.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3030
  15.    ScaleWidth      =   5250
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.CommandButton cmdfunc 
  18.       Caption         =   "int"
  19.       Height          =   375
  20.       Index           =   5
  21.       Left            =   1320
  22.       TabIndex        =   32
  23.       Top             =   2040
  24.       Width           =   495
  25.    End
  26.    Begin VB.CommandButton Command11 
  27.       Caption         =   "^y"
  28.       Height          =   375
  29.       Left            =   1320
  30.       TabIndex        =   31
  31.       Top             =   2520
  32.       Width           =   495
  33.    End
  34.    Begin VB.CommandButton Command9 
  35.       Caption         =   "e"
  36.       Height          =   375
  37.       Left            =   720
  38.       TabIndex        =   30
  39.       Top             =   2520
  40.       Width           =   495
  41.    End
  42.    Begin VB.CommandButton Command8 
  43.       Caption         =   "Pi"
  44.       Height          =   375
  45.       Left            =   120
  46.       TabIndex        =   29
  47.       Top             =   2520
  48.       Width           =   495
  49.    End
  50.    Begin VB.CommandButton cmdfunc 
  51.       Caption         =   "log"
  52.       Height          =   375
  53.       Index           =   4
  54.       Left            =   720
  55.       TabIndex        =   28
  56.       Top             =   2040
  57.       Width           =   495
  58.    End
  59.    Begin VB.CommandButton cmdfunc 
  60.       Caption         =   "sqr"
  61.       Height          =   375
  62.       Index           =   3
  63.       Left            =   120
  64.       TabIndex        =   27
  65.       Top             =   2040
  66.       Width           =   495
  67.    End
  68.    Begin VB.CommandButton cmdfunc 
  69.       Caption         =   "Tan"
  70.       Height          =   375
  71.       Index           =   2
  72.       Left            =   1320
  73.       TabIndex        =   26
  74.       Top             =   1560
  75.       Width           =   495
  76.    End
  77.    Begin VB.CommandButton cmdfunc 
  78.       Caption         =   "Cos"
  79.       Height          =   375
  80.       Index           =   1
  81.       Left            =   720
  82.       TabIndex        =   25
  83.       Top             =   1560
  84.       Width           =   495
  85.    End
  86.    Begin VB.CommandButton cmdfunc 
  87.       Caption         =   "Sin"
  88.       Height          =   375
  89.       Index           =   0
  90.       Left            =   120
  91.       TabIndex        =   24
  92.       Top             =   1560
  93.       Width           =   495
  94.    End
  95.    Begin VB.CommandButton Command7 
  96.       Caption         =   "Exp"
  97.       Height          =   375
  98.       Left            =   1320
  99.       TabIndex        =   23
  100.       Top             =   1080
  101.       Width           =   495
  102.    End
  103.    Begin VB.TextBox Text2 
  104.       BackColor       =   &H8000000F&
  105.       BorderStyle     =   0  'None
  106.       Height          =   285
  107.       Left            =   120
  108.       TabIndex        =   22
  109.       Top             =   600
  110.       Width           =   5055
  111.    End
  112.    Begin VB.CommandButton Command6 
  113.       Caption         =   ")"
  114.       Height          =   375
  115.       Left            =   720
  116.       TabIndex        =   21
  117.       Top             =   1080
  118.       Width           =   495
  119.    End
  120.    Begin VB.CommandButton Command5 
  121.       Caption         =   "("
  122.       Height          =   375
  123.       Left            =   120
  124.       TabIndex        =   20
  125.       Top             =   1080
  126.       Width           =   495
  127.    End
  128.    Begin VB.CommandButton Command3 
  129.       Caption         =   "+/-"
  130.       Height          =   375
  131.       Left            =   3360
  132.       TabIndex        =   19
  133.       Top             =   2520
  134.       Width           =   495
  135.    End
  136.    Begin VB.CommandButton cmdoper 
  137.       Caption         =   "/"
  138.       Height          =   375
  139.       Index           =   3
  140.       Left            =   4680
  141.       TabIndex        =   18
  142.       Top             =   2040
  143.       Width           =   495
  144.    End
  145.    Begin VB.CommandButton cmdoper 
  146.       Caption         =   "*"
  147.       Height          =   375
  148.       Index           =   2
  149.       Left            =   4080
  150.       TabIndex        =   17
  151.       Top             =   2040
  152.       Width           =   495
  153.    End
  154.    Begin VB.CommandButton cmdoper 
  155.       Caption         =   "-"
  156.       Height          =   375
  157.       Index           =   1
  158.       Left            =   4680
  159.       TabIndex        =   16
  160.       Top             =   1560
  161.       Width           =   495
  162.    End
  163.    Begin VB.CommandButton cmdoper 
  164.       Caption         =   "+"
  165.       Height          =   375
  166.       Index           =   0
  167.       Left            =   4080
  168.       TabIndex        =   15
  169.       Top             =   1560
  170.       Width           =   495
  171.    End
  172.    Begin VB.CommandButton Command2 
  173.       Caption         =   "C"
  174.       Height          =   375
  175.       Left            =   4680
  176.       TabIndex        =   14
  177.       Top             =   1080
  178.       Width           =   495
  179.    End
  180.    Begin VB.CommandButton Command1 
  181.       Caption         =   "AC"
  182.       Height          =   375
  183.       Left            =   4080
  184.       TabIndex        =   13
  185.       Top             =   1080
  186.       Width           =   495
  187.    End
  188.    Begin VB.CommandButton cmdequal 
  189.       Caption         =   "="
  190.       BeginProperty Font 
  191.          Name            =   "MS Sans Serif"
  192.          Size            =   8.25
  193.          Charset         =   178
  194.          Weight          =   700
  195.          Underline       =   0   'False
  196.          Italic          =   0   'False
  197.          Strikethrough   =   0   'False
  198.       EndProperty
  199.       Height          =   375
  200.       Left            =   4080
  201.       TabIndex        =   12
  202.       Top             =   2520
  203.       Width           =   1095
  204.    End
  205.    Begin VB.CommandButton cmddecimal 
  206.       Caption         =   "."
  207.       BeginProperty Font 
  208.          Name            =   "MS Sans Serif"
  209.          Size            =   8.25
  210.          Charset         =   178
  211.          Weight          =   700
  212.          Underline       =   0   'False
  213.          Italic          =   0   'False
  214.          Strikethrough   =   0   'False
  215.       EndProperty
  216.       Height          =   375
  217.       Left            =   2760
  218.       TabIndex        =   11
  219.       Top             =   2520
  220.       Width           =   495
  221.    End
  222.    Begin VB.CommandButton cmdnum 
  223.       Caption         =   "9"
  224.       BeginProperty Font 
  225.          Name            =   "MS Sans Serif"
  226.          Size            =   8.25
  227.          Charset         =   178
  228.          Weight          =   700
  229.          Underline       =   0   'False
  230.          Italic          =   0   'False
  231.          Strikethrough   =   0   'False
  232.       EndProperty
  233.       Height          =   375
  234.       Index           =   9
  235.       Left            =   3360
  236.       TabIndex        =   10
  237.       Top             =   1080
  238.       Width           =   495
  239.    End
  240.    Begin VB.CommandButton cmdnum 
  241.       Caption         =   "8"
  242.       BeginProperty Font 
  243.          Name            =   "MS Sans Serif"
  244.          Size            =   8.25
  245.          Charset         =   178
  246.          Weight          =   700
  247.          Underline       =   0   'False
  248.          Italic          =   0   'False
  249.          Strikethrough   =   0   'False
  250.       EndProperty
  251.       Height          =   375
  252.       Index           =   8
  253.       Left            =   2760
  254.       TabIndex        =   9
  255.       Top             =   1080
  256.       Width           =   495
  257.    End
  258.    Begin VB.CommandButton cmdnum 
  259.       Caption         =   "7"
  260.       BeginProperty Font 
  261.          Name            =   "MS Sans Serif"
  262.          Size            =   8.25
  263.          Charset         =   178
  264.          Weight          =   700
  265.          Underline       =   0   'False
  266.          Italic          =   0   'False
  267.          Strikethrough   =   0   'False
  268.       EndProperty
  269.       Height          =   375
  270.       Index           =   7
  271.       Left            =   2160
  272.       TabIndex        =   8
  273.       Top             =   1080
  274.       Width           =   495
  275.    End
  276.    Begin VB.CommandButton cmdnum 
  277.       Caption         =   "6"
  278.       BeginProperty Font 
  279.          Name            =   "MS Sans Serif"
  280.          Size            =   8.25
  281.          Charset         =   178
  282.          Weight          =   700
  283.          Underline       =   0   'False
  284.          Italic          =   0   'False
  285.          Strikethrough   =   0   'False
  286.       EndProperty
  287.       Height          =   375
  288.       Index           =   6
  289.       Left            =   3360
  290.       TabIndex        =   7
  291.       Top             =   1560
  292.       Width           =   495
  293.    End
  294.    Begin VB.CommandButton cmdnum 
  295.       Caption         =   "5"
  296.       BeginProperty Font 
  297.          Name            =   "MS Sans Serif"
  298.          Size            =   8.25
  299.          Charset         =   178
  300.          Weight          =   700
  301.          Underline       =   0   'False
  302.          Italic          =   0   'False
  303.          Strikethrough   =   0   'False
  304.       EndProperty
  305.       Height          =   375
  306.       Index           =   5
  307.       Left            =   2760
  308.       TabIndex        =   6
  309.       Top             =   1560
  310.       Width           =   495
  311.    End
  312.    Begin VB.CommandButton cmdnum 
  313.       Caption         =   "4"
  314.       BeginProperty Font 
  315.          Name            =   "MS Sans Serif"
  316.          Size            =   8.25
  317.          Charset         =   178
  318.          Weight          =   700
  319.          Underline       =   0   'False
  320.          Italic          =   0   'False
  321.          Strikethrough   =   0   'False
  322.       EndProperty
  323.       Height          =   375
  324.       Index           =   4
  325.       Left            =   2160
  326.       TabIndex        =   5
  327.       Top             =   1560
  328.       Width           =   495
  329.    End
  330.    Begin VB.CommandButton cmdnum 
  331.       Caption         =   "3"
  332.       BeginProperty Font 
  333.          Name            =   "MS Sans Serif"
  334.          Size            =   8.25
  335.          Charset         =   178
  336.          Weight          =   700
  337.          Underline       =   0   'False
  338.          Italic          =   0   'False
  339.          Strikethrough   =   0   'False
  340.       EndProperty
  341.       Height          =   375
  342.       Index           =   3
  343.       Left            =   3360
  344.       TabIndex        =   4
  345.       Top             =   2040
  346.       Width           =   495
  347.    End
  348.    Begin VB.CommandButton cmdnum 
  349.       Caption         =   "2"
  350.       BeginProperty Font 
  351.          Name            =   "MS Sans Serif"
  352.          Size            =   8.25
  353.          Charset         =   178
  354.          Weight          =   700
  355.          Underline       =   0   'False
  356.          Italic          =   0   'False
  357.          Strikethrough   =   0   'False
  358.       EndProperty
  359.       Height          =   375
  360.       Index           =   2
  361.       Left            =   2760
  362.       TabIndex        =   3
  363.       Top             =   2040
  364.       Width           =   495
  365.    End
  366.    Begin VB.CommandButton cmdnum 
  367.       Caption         =   "1"
  368.       BeginProperty Font 
  369.          Name            =   "MS Sans Serif"
  370.          Size            =   8.25
  371.          Charset         =   178
  372.          Weight          =   700
  373.          Underline       =   0   'False
  374.          Italic          =   0   'False
  375.          Strikethrough   =   0   'False
  376.       EndProperty
  377.       Height          =   375
  378.       Index           =   1
  379.       Left            =   2160
  380.       TabIndex        =   2
  381.       Top             =   2040
  382.       Width           =   495
  383.    End
  384.    Begin VB.CommandButton cmdnum 
  385.       Caption         =   "0"
  386.       BeginProperty Font 
  387.          Name            =   "MS Sans Serif"
  388.          Size            =   8.25
  389.          Charset         =   178
  390.          Weight          =   700
  391.          Underline       =   0   'False
  392.          Italic          =   0   'False
  393.          Strikethrough   =   0   'False
  394.       EndProperty
  395.       Height          =   375
  396.       Index           =   0
  397.       Left            =   2160
  398.       TabIndex        =   1
  399.       Top             =   2520
  400.       Width           =   495
  401.    End
  402.    Begin VB.TextBox Text1 
  403.       Height          =   405
  404.       Left            =   120
  405.       Locked          =   -1  'True
  406.       TabIndex        =   0
  407.       Text            =   "0"
  408.       Top             =   120
  409.       Width           =   5055
  410.    End
  411. End
  412. Attribute VB_Name = "frmCalculator"
  413. Attribute VB_GlobalNameSpace = False
  414. Attribute VB_Creatable = False
  415. Attribute VB_PredeclaredId = True
  416. Attribute VB_Exposed = False
  417. Private Sub cmddecimal_Click()
  418. Text1.Text = Text1.Text & "."
  419. End Sub
  420.  
  421. Private Sub cmdequal_Click()
  422. On Error Resume Next
  423. Dim expression As String
  424. If Mid(Text2.Text, Len(Text2.Text), 1) <> ")" And Command5.Enabled = True Then Text2.Text = Text2.Text + Text1.Text
  425. expression = EditedEqu(Text2.Text)
  426. Call frmMain.Init(expression)
  427. Text1.Text = GetVal(0, 0)
  428. For Each com In Me.Controls
  429. com.Enabled = False
  430. Next
  431. cmdequal.Enabled = True
  432. Command1.Enabled = True
  433. 'Command2.Enabled = True
  434. Text1.Enabled = True
  435. Text2.Enabled = True
  436. End Sub
  437.  
  438. Private Sub cmdfunc_Click(Index As Integer)
  439. Text2.Text = Text2.Text + cmdfunc(Index).Caption + "("
  440. End Sub
  441.  
  442. Private Sub cmdnum_Click(Index As Integer)
  443. If Text1.Text = "0" Then Text1.Text = ""
  444. Text1.Text = Text1.Text & Index
  445. End Sub
  446.  
  447. Private Sub cmdoper_Click(Index As Integer)
  448. On Error Resume Next
  449. If Mid(Text2.Text, Len(Text2.Text), 1) <> ")" Then Text2.Text = Text2.Text + Text1.Text
  450. Text1.Text = "0"
  451. Text2.Text = Text2.Text + cmdoper(Index).Caption
  452. End Sub
  453.  
  454. Private Sub Command1_Click()
  455. Text1.Text = "0"
  456. Text2.Text = ""
  457. For Each com In Me.Controls
  458. com.Enabled = True
  459. Next
  460.  
  461. End Sub
  462. Private Sub Command11_Click()
  463. On Error Resume Next
  464. ator"
  465. Attribute VB_GlobalNameSpace = False
  466. Attribute VB_Creatable = False
  467. Attribute VB_PredeclaredId = True
  468. Attribute VB_Exposed n0505n_aq =   7
  469.       Left            =   2160
  470.       TabIndex        =   8
  471.  ed n0505n_aq =   7
  472.       Left (         Weight          =   hl   8
  473.     =   8
  474.  ed nuir0)^Rerline       =   0   'False
  475.          Italic          =   0   eor"
  476. Attribute VB_GlobalNameSp1tttribute VB_GlobalNameSp1tttribute VB_GlobalNameSp1tttribute VB_GlobalNameSptommand1_Click()
  477. Text1.Text = "0"
  478. Text2.Text = ""
  479. For Eac      =   8&  'False
  480.          Italic   60
  481.       TabIndex      _t0xU0n(Text2.Text), 1) <> ")" Then Tsceight          =   375
  482.       Index           =   1
  483.       Left            =   2160
  484.       TabInd RommandButa7 = ""
  485. For Eac      =   8&  'False
  486.          Italic   60
  487.       TabIndex      _t0xU0n(Text2.Text), 1) <> ")" Then bute VB_0x   8
  488.     =   8
  489.  ed nuir0)^Rerl=    =